
APPENDIX II 

function addlink(TOPO) 
% addlink(TOPO) 
% 

% interactively add links to the TOPO 

update(TOPO); 
c_src = 1 ; 
c_dst = 2; 
c_bw = 3; 

figure(TOPO.cur_fig) 
while' (1) 

fprintf(l,'\n\nHit Button 3 to end...\n\n'); 

% find coords and index i of src 
[xli yli button] = ginput(l); 
if (button ==3) break; end 

d = sqrt((TOP0.1ocs(:,l) - xli) A 2 + (TOP0.1ocs(:,2) - yli). A 2); 
[d,i] = min(d); 

xl = TOPO.locs(U); yl = TOP0.1ocs(i,2); 

% find coords and index j of dst 
[x2iy2i] = ginput(l); 

d = sqrt((TOP0.1ocs(:,l) - x2i). A 2 + (TOP0.1ocs(:,2) - y2i). A 2); 
[dj] = min(d); 

x2 = TOP0.1ocs(j,l); y2 = TOP0.1ocs(j,2); 
hold on; 

lh = line([xl x2],[yl y2],'colorVred'); 
cap = input('Enter capacity (in Mbps) > '); 

fprintf(l, 'About to create symetric %d Mbps link from node %d to node %d\n',cap,i,j); 

doit = input('Enter Y to confirm, N to reject, and B to change bandwidth (Y)> ','s'); 

if (isempty(doit)) doit = 'Y'; end 

if (doit =='n'| doit = =, N') 
delete(lh); 
return; 



# 
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end 



if (doit = V | doit = 'B') 

buf = sprintf('Enter capacity from %d to %d (in Mbps) > f ,i j) 
capjjoj = input(buf); 

buf = sprintf('Enter capacity from %d to %d (in Mbps) > ' j 5 i) 
capJ_to_i = input(buf); 

else 

cap J Jo J = cap; 
capJ_to_i = cap; 

end 

%build the link records 
clear linkab linkba; 

linkab.src = i; 
linkab. dst =j; 
linkab. bw = cap_i_toJ; 
linkab.handle = lh; 

linkba. src = j; 
linkba. dst = i; 
linkba.bw = capJ_to_i; 
linkba.handle = lh; 



% now draw the actual link on the map 
delete(lh); 

lh = drawlink(TOP0 5 linkab); 

% now store the link info 

TOPO.links - [TOPO.links ; linkab ; linkba ]; 

TOPO.linkarray = [TOPO.linkarray ; [ i j capjjoj] ; [ j i cap J Jo. 

end % of while loop 

assignin('caller , 5 inputname(l),TOPO); 



function [C, portmap] = capacity(TOPO) 
% [C ? portmap] - capacity(TOPO) 



# • 

% portmap maps indices of C to elts of nodes(TOPO) 
% [node dir] where 

% node is index of elt in nodes(TOPO) 

% dir is 1 if data enters here, -1 if data leaves here 

numnodes = length(TOPO. links) * 2; 

C = zeros(numnodes ? numnodes); 

curnode = 0; 
portmap = []; 

for i = l:length(TOP0.1inks) 
link = TOPO.links(i); 
curnode = curnode + 1 ; 
portmap(curnode,:) = [link.src -1]; 
curnode = curnode + 1 ; 
,portmap(curnode,:) = [link.dst 1]; 

C(curnode-l,curnode) = link.bw; 

end 

cjiode = 1 ; 
c_dir = 2; 

for i = l:length(TOPO.nodes) 

ins = fmd(portmap(:,c_node) == i & portmap(:,c_dir) = 
outs = find(portmap(: ? c_node) == i & portmap(: 5 c_dir) 

for j = ins 

for k = outs 

CG 5 k)-inf; 

end 

end 

end 

function [a, b, c] = debug(t) 

update(t); 

fieldnames(t) 

a = t.nodes 
b = t.locs 
c = t. links 

function display(TOPO) 
% DISPLAY a topo object 



# 41 # 

% a link is a unidirectional, so the value is probably twice what you want 

fprintf('[TOPO object: %d nodes %d links]\n\... 

Iength(TOPO.nodes),length(TOP0.1inks)); 
function draw(TOPO) 
% draw(topo) 

% 

% draw the topology figure in a new window 

TOPO.cur_fig = figure; 

axis(TOPO.axis); 

axis equal; 

axis manual; 

box on; 

hold on; 

for i = l:length(TOPO.nodes) 

nm = plot(TOPO.nodes{i}.loc(l),TOPO.nodes{i}.loc(2) 5 , ob , ); 
TOPO.nodes{i}.mark_handle = nm; 
if(isfield(TOPO.nodes{i};nameloc')) 

TOPO. nodes {i}.nameloc(3) = text(TOPO.nodes{i}.nameloc(l),. 

TOPO .nodes { i } . nameloc(2) ,TOPO . nodes { i } .name 

end 

end 

% yes, this draws the same link twice, fix it if it matters -dam 11/21 

TOPO.linkarray = []; 

for i = l:length(TOP0.1inks) 

TOP0.1inks(i).handle = drawlink(TOPO ? TOP0.1inks(i)); 

TOPO.linkarray = [TOPO.linkarray ; ... 

[ TOP0.1inks(i).src TOP0.1inks(i).dst TOP0.1inks(i).bw]]; 

end 

assignin('caller , ? inputname( 1 ) ? TOPO); 
function ex(t) 

t.nodes 

function labelnames(TOPO) 
% function labelnames(TOPO) 
% make it easy to label the nodes 

for i = 1 :length(TOPO.nodes) 

fprintf(Tlace label for node %d n %s ,r \n' 5 i ? char(TOPO.nodes{i}.name)); 




origcolor = get(TOPO.nodes{i}.mark_handle ? 'color t ); 
set(TOPO.nodes{i}.mark_handle;color',[l 0 0]); 

if(isfield(TOPO.nodes{i};nameloc')) 

good_x = TOPO.nodes{i}.nameloc(l); 
good_y = TOPO.nodes{i}.nameloc(2); 

end 

th = Q; 
while (1) 

fprintf('Button 1 to (re)place text, Button 3 to accept\n'); 

[x,y, button] = ginput(l); 

if (3 == button) break; end 

if (-isempty(th)) delete(th); end 

th = text(x,y,TOPO.nodes{i}.name); 

good_x = x; good_y = y; 

end 

TOPO.nodes{i}.nameloc = [good_x, good_y, th]; 
set(TOPO.nodes{i}.mark_handle 5 'color' ? origcolor); 

end 

assignin('caller' 3 inputname(l ),TOPO);function names(TOPO) 
% NAMES the list of names of the nodes in the topo 

fprintf('Node\t\tName\n'); 
for i = 1 :size(TOPO.names,l) 

fprintf( , %d\t\t%s\n' ? iJOPO.names{i}); 

end 

function [node] = nodes(TOPO) 

% function [node] = nodes(TOPO) 

% returns a cell array describing nodes in the TOPO 

node = TOPO.nodes; 

function [TOPO] = topo(TOPO) 

%[TOPO]=topo(TOPO) 

%% if input TOPO is 'init f , create a new topology 

% 

% newtopo = topo( f init'); 

% 

% else add new nodes to TOPO 

% 

% nodes is a array of structs, one per node 
% link is a array of structs, one per link 

% a link is a unidirectional item, so there are probably twice 
% as many links as you'd expect. 




if (nargin < 1) 

error('topo(TOPO) or topo("init") - not enough args'); 

end 

if (ischar(TOPO) & TOPO = 'ink') 
clear TOPO 

TOPO.nodes = []; 
TOP0.1inks = []; 

TOPO. capacity = []; % now computed as needed 
TOPO. Iocs = []; % internal cache 
TOPO.linkarray = []; % internal cache 

f = figure; 
axis([0 75 0 50 ]); 
TOPO. axis = axis; 
TOPO.cur_fig = f; 
axis equal 
axis manual 
box on 
hold 

else 

figure(TOPO.curJig); 

end 



nodecount = length(TOPO.nodes); 

while (1) 

clear nodeinfo; 

fprintf(i;\n\nHit Button 3 to stop\n\n'); 

[xy but] = ginput(l); 

if (but = 3) break; end 

x = floor(x); y = floor(y); 

nm = plot(x,y, f ob'); 

name = input('Enter name > ',V); 

nodeinfo. loc = [xy]; 
nodeinfo. mark_handle = nm; 
nodeinfo. name = cellstr(name); 
nodecount = nodecount + 1 ; 
TOPO.nodes{nodecount} = nodeinfo; 

end 



if Ctopo'-= class(TOPO)) 

TOPO = class(TOPO,'topo'); 

end 

5 

if (nargout = 0) 

assignin('caller , 5 inputname(l) 5 TOPO); 

end 

function lh = drawlink(TOPO, link) 
10 % assumes TOPO.linkarray is already valid, and draws the position of 

% link line based on the number of links already present in linkarray 



*3 



c_src = 1 ; 
c_dst = 2; 
15 c_bw = 3; 

i = link.src; 
j = link.dst; 



M 20 xl =TOPO.nodes{i}.loc(l) 

iC yl = TOPO.nodes{i}.loc(2) 

^3 x2 - TOPO.nodes{j}.loc(l) 

<P yl - TOPO.nodes{j}.loc(2) 

2 25 

if (isempty (TOPO. linkarray)) 
jfs num links ™ 0; 

IS? a 

n else 

U num_links = sum(TOP0.1inkarray(:,c_src) == i & TOP0.1inkarray(:,c_dst) == j); 

30 end 

pattern = [0 1-12-23 -3] * .3; 

if (abs(xl - x2) > abs(yl - y2)) 
35 delta_x = 0; 

delta_y = pattern(num_links +1); 

else 

delta_x = pattern(num_links +1); 
delta_y = 0; 

40 end 

lh = line([xl x2] + delta_x, [yl y2] + delta_y, 'color', 'black'); 
function update(TOPO) 
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# 45 # 

clear TOPOJocs; 

for i = l:length(TOPO.nodes) 

TOP0.1ocs(i 5 :) = TOPO.nodes{i}.loc 

end 

clear TOPO.linkarray; 

for i = 1 :length(TOP0.1inks) 

TOPO.linkarray - [TOPO.linkarray ; ... 

[ TOP0.1inks(i).src TOP0.1inks(i).dst TOP0.1inks(i).bw]]; 

end 

% these are here to be cut and pasted into other functions as needed 

% there doesn't seem to be a good way to pass them around in another fashion 

% (using assigning('caller'...) to force their definition sounds like asking ' 

% for trouble 'cause you'll overwrite another definition of them...) 

c__src - 1 ; 

c_dst = 2; 

c bw = 3; 



assignin('caller',inputname(l),TOPO); 



